home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
misc
/
a-d
/
3.0iupdate
/
macros.lha
/
FindOversetText.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-09-14
|
2KB
|
52 lines
/* $VER: FindOverSetText.rexx 1.1 (13.9.95)
Copyright 1995 Soft-Logik Publishing Corporation
May not be distributed without Soft-Logik Publishing Corporation's express written permission */
OPTIONS RESULTS
ADDRESS 'PAGESTREAM'
iOversetCount = 0
/* MAIN LOOP */
call OPENLIBS()
'getarticleids 'aArticles /* get a list of all articles */
aArticles.count = result
do i = 0 to aArticles.count - 1 /* repeat for each article */
'getarticleoverset articleid 'aArticles.i
if result = TRUE then LEAVE
end i
if result = TRUE then do /* if an article is overset... */
getarticle frames aFrames articleid aArticles.i /* get the frame's objectIDs for the article */
iLastFrame = aFrames.count - 1
getobject pagenumber sPageNum objectid aFrames.iLastFrame
display page sPageNum scale fullpage
end
else call doalert("No more overset text found!")
EXIT
OPENLIBS:
/* OPEN LIBRARIES */
IF ~SHOW('L','rexxsupport.library') THEN
call addlib('rexxsupport.library',0,-30)
IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
call addlib("softlogik:libs/slarexxsupport.library", 0, -30)
RETURN
DOALERT:
parse arg sAlertText
iAlertLength=length(sAlertText)
/* Display an alert requester */
allocarexxrequester '"Macro Alert"' iAlertLength*8+24 55
hAlertReq=result
addarexxgadget hAlertReq TEXT 8 12 iAlertLength*8+8 border none string '"'sAlertText'"'
addarexxgadget hAlertReq EXIT iALertLength*8-58 38 70 label "_Exit"
doarexxrequester hAlertReq
freearexxrequester hAlertReq
RETURN